home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / dev / gui / select_gc.lha / select_gc / Install next >
Text File  |  1998-05-26  |  5KB  |  205 lines
  1. ;** $VER: select.gadget_install 40.1 (25.5.98) by Massimo Tantignone
  2. ;**
  3.  
  4. ;******************************
  5. ;** MESSAGES (DEFAULT: ENGLISH)
  6.  
  7. (set msg_what   "What do you want to install?")
  8. (set msg_doc    "Documentation")
  9. (set msg_inc    "Include files")
  10. (set msg_fd     "Library .fd file")
  11. (set msg_seldr  "Select the destination drawer:")
  12. (set msg_whgadg "Where do you want to copy the \"select.gadget\" library?")
  13. (set msg_whdoc  "Where do you want to copy the documentation files?")
  14. (set msg_whinc  "Where do you want to copy the include files?\nYou should choose an already existing \"include\" directory.")
  15. (set msg_whfd   "Where do you want to copy the library .fd file?")
  16. ;(set msg_cpu000 "68000")
  17. ;(set msg_cpu020 "68020/030")
  18. ;(set msg_cpu040 "68040")
  19. ;(set msg_cpu060 "68060")
  20. (set whathelp   "Choose which part(s) of the select.gadget package are to be installed.")
  21. (set dirhelp    "Select the drawer into which the \"select.gadget\" library is to be copied.\nThe default is \"SYS:Classes/Gadgets\".\nIf a newer version is already in place, it won't be overwritten.")
  22. (set dirhelp2   "Select the drawer into which the documentation is to be copied.")
  23. (set dirhelp3   "Select the directory into which the include files are to be copied.\nThe include directory itself won't be copied to the destination directory; only its contents will.\nThis means that you should choose an already existing \"include\" directory.")
  24. (set dirhelp4   "Select the drawer into which the library .fd file is to be copied.")
  25. ;(set cpuhelp    "If you have an accelerated Amiga, you can choose to\ninstall a more optimized version of select.gadget.")
  26. (set msg_done   "For any question or bug report, please write to:\n\ntanti@intercom.it")
  27.  
  28. ;*******************************
  29. ;** ASK INSTALLATION PREFERENCES
  30.  
  31. (complete 5)
  32.  
  33. (set var_what
  34.    (askoptions
  35.       (prompt msg_what)
  36.       (help whathelp)
  37.       (choices "select.gadget" msg_doc msg_inc msg_fd)
  38.       (default 1)
  39.    )
  40. )
  41.  
  42. (complete 10)
  43.  
  44. ;(set var_cpu
  45. ;   (askchoice
  46. ;      (prompt msg_selcpu)
  47. ;      (help cpuhelp)
  48. ;      (choices msg_cpu000 msg_cpu020 msg_cpu040 msg_cpu060)
  49. ;   )
  50. ;))
  51.  
  52. (if (bitand var_what 1)(
  53.    (set gadgdir
  54.       (askdir
  55.          (default "SYS:Classes/Gadgets")
  56.          (help dirhelp)
  57.          (prompt (cat msg_whgadg "\n\n" msg_seldr))
  58.       )
  59.    )
  60.    (set gadgdir (tackon gadgdir ""))
  61. ))
  62.  
  63. (complete 20)
  64.  
  65. (if (bitand var_what 2)(
  66.    (set docdir
  67.       (askdir
  68.          (default @default-dest)
  69.          (help dirhelp2)
  70.          (prompt (cat msg_whdoc "\n\n" msg_seldr))
  71.       )
  72.    )
  73.    (set docdir (tackon docdir ""))
  74. ))
  75.  
  76. (complete 30)
  77.  
  78. (if (bitand var_what 4)(
  79.    (set incdir
  80.       (askdir
  81.          (default @default-dest)
  82.          (help dirhelp3)
  83.          (prompt (cat msg_whinc "\n\n" msg_seldr))
  84.       )
  85.    )
  86.    (set incdir (tackon incdir ""))
  87. ))
  88.  
  89. (complete 40)
  90.  
  91. (if (bitand var_what 8)(
  92.    (set fddir
  93.       (askdir
  94.          (default @default-dest)
  95.          (help dirhelp4)
  96.          (prompt (cat msg_whfd "\n\n" msg_seldr))
  97.       )
  98.    )
  99.    (set fddir (tackon fddir ""))
  100. ))
  101.  
  102. (if (bitand var_what 1)
  103.    (
  104.       (set @default-dest gadgdir)
  105.    )
  106.    (
  107.       (set @default-dest "RAM:")
  108.    )
  109. )
  110.  
  111. ;***************************************
  112. ;** INSTALL FILES: SELECT.GADGET LIBRARY
  113.  
  114. (complete 50)
  115.  
  116. (if (bitand var_what 1)
  117.    (if (= 0 (exists (tackon gadgdir "select.gadget")))
  118.       (copyfiles
  119.          (source "Classes/Gadgets/select.gadget")
  120.          (dest gadgdir)
  121.       )
  122.       (copylib
  123.          (source "Classes/Gadgets/select.gadget")
  124.          (dest gadgdir)
  125.          (optional nofail)
  126.       )
  127.    )
  128. )
  129.  
  130. ;*******************************
  131. ;** INSTALL FILES: DOCUMENTATION
  132.  
  133. (complete 60)
  134.  
  135. (if (bitand var_what 2)
  136.    (copyfiles
  137.       (source "")
  138.       (choices "select.doc"
  139.                "select.doc.info"
  140.                "select.guide"
  141.                "select.guide.info"
  142.                "ReadMe.user"
  143.                "ReadMe.user.info")
  144.       (dest docdir)
  145.    )
  146. )
  147.  
  148. ;*******************************
  149. ;** INSTALL FILES: INCLUDE FILES
  150.  
  151. (complete 70)
  152.  
  153. (if (bitand var_what 4)
  154.    (copyfiles
  155.       (source "include")
  156.       (dest incdir)
  157.       (all)
  158.    )
  159. )
  160.  
  161. ;**************************
  162. ;** INSTALL FILES: .FD FILE
  163.  
  164. (complete 80)
  165.  
  166. (if (bitand var_what 8)
  167.    (copyfiles
  168.       (source "selectgadget_cl.fd")
  169.       (dest fddir)
  170.    )
  171. )
  172.  
  173. ;**********************************
  174. ;** INSTALL FILES: PREFERENCES FILE
  175.  
  176. (complete 90)
  177.  
  178. (if (= 0 (exists "ENVARC:Gadgets/select.prefs" (noreq)))(
  179.    (copyfiles
  180.       (source "Env-Archive/Gadgets/select.prefs")
  181.       (dest "ENVARC:Gadgets")
  182.    )
  183.    (copyfiles
  184.       (source "Env-Archive/Gadgets/select.prefs")
  185.       (dest "ENV:Gadgets")
  186.    )
  187. ))
  188.  
  189. (run "Avail FLUSH > NIL:")
  190.  
  191. ;***********
  192. ;** READ ME!
  193.  
  194. (complete 90)
  195.  
  196. (run "SYS:Utilities/MultiView \"ReadMe.user\"" (safe))
  197.  
  198. ;*******
  199. ;** DONE
  200.  
  201. (complete 100)
  202.  
  203. (exit (cat "\n" msg_done))
  204.  
  205.